home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / pkey12_1.zip / ZQ.LSP < prev   
Text File  |  1992-09-13  |  744b  |  19 lines
  1. ;A couple of handy quick zoom utilities
  2. ;
  3. ;
  4. (defun c:zq()
  5. (setq vmx1 (getvar "VsMax")
  6.       vmn1 (getvar "VsMin")
  7.       fx (* (- (car vmx1) (car vmn1)) 0.0000000000001)
  8.       smll (/ (- (cadr vmx1) (cadr vmn1))
  9.           (- (fix (/ 32767 (apply 'max (getvar "screensize")))) 0.0000000000001)))
  10.   (command "zoom" "W" (mapcar '+ vmn1 (list fx fx))
  11.            (mapcar '- vmx1 (list fx fx))))
  12. (defun c:zs()
  13. (setq p1 (getpoint "\nPick center point of small window:  ")
  14.       vmx1 (getvar "VsMax")
  15.       vmn1 (getvar "VsMin")
  16.       fx (* (- (car vmx1) (car vmn1)) 0.000000000001)
  17.       smll (/ (- (cadr vmx1) (cadr vmn1))
  18.           (- (fix (/ 32767 (apply 'max (getvar "screensize")))) 0.000000000001)))
  19. (command"zoom""c" p1 smll))